home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 15 / winstart.zip / WINSTART.PAS < prev   
Pascal/Delphi Source File  |  1990-06-27  |  1KB  |  52 lines
  1. PROGRAM WinStart;
  2.  
  3. {$M 65520, 0, 655360}
  4.  
  5. USES
  6.    Dos, FileUtils;
  7.  
  8. VAR
  9.    F: File;
  10.    FileCount: Byte;
  11.    Files: Array [0..199] of String[12];
  12.    Choice: String;
  13.  
  14. PROCEDURE GetFiles (FileDesc: PathStr);
  15.  
  16.   VAR
  17.      FirstDir: Word;
  18.      DirInfo: SearchRec;
  19.  
  20.   Begin
  21.     FileCount := 0;
  22.     FindFirst(FileDesc, AnyFile-Hidden, DirInfo);
  23.     While (DosError = 0) do
  24.       Begin
  25.         Files[FileCount] := DirInfo.Name;
  26.         INC(FileCount);
  27.         FindNext(DirInfo)
  28.       End
  29.   End; {GetFiles}
  30.  
  31. Begin
  32.   Randomize;
  33.   If (ParamCount = 0) then
  34.     Begin
  35.       Writeln('Usage: WINSTART <windows-directory>');
  36.       Writeln('     Example:  WINSTART C:\WINDOWS');
  37.       Halt
  38.     End;
  39.   Assign(F, ParamStr(1)+'\STARTUP.BMP');
  40.   {$I-}
  41.   Reset(F);
  42.   {$I+}
  43.   If (IOResult = 0) then
  44.     Begin
  45.       Close(F);
  46.       Erase(F)
  47.     End;
  48.   GetFiles(ParamStr(1)+'\*.BMP');
  49.   Choice := ParamStr(1)+'\'+Files[Random(FileCount)];
  50.   CopyFile(Choice, ParamStr(1)+'\STARTUP.BMP')
  51. End.
  52.